rm(list=ls())
library(magrittr)
setwd('E:\\16_八字易经\\')
# initialize
year <- '丙辰'
month <- '戊戌'
day <- '乙卯'
hour <- '己卯'

source('PaiBazi.R',encoding = 'UTF-8')
AnaBase <- PaiBazi(year,month,day,hour)
print(AnaBase)
as.data.frame(table(AnaBase$ShiShen))

